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The SPERRY UNIVAC Operating System/3 (0S/3} COBOL language is 
fully described in the OS/3 Basic COSOL supplementary reference, 
UP-8057 (current version). 


SUMMARY NOTATION: 


Key words (that is, words that result in action by the compiler) are capitalized 
and underscored. 


e Optional words (that is, words included for readability only) are capitalized, 
but not underscored. 


. Brackets [ ] enclose words, phrases, or clauses that may be omitted if their 
functions are not required. 


s Braces { } indicate a mandatory choice of various forms or functions. 


e Eltipsis . . . indicates optional repetition of elements enclosed in the preceding 
Pair of brackets or braces. 


s Lowercase words represent generic terms that must be supplied by the user. 
s Periods must be used where shown and must also appear at the end of each 


paragraph. Statements which do not contain periods on the reference card must 
be followed by a period when used at the end of a paragraph. 


RULES AND SUGGESTIONS FOR EFFICIENCY: 

1. Use legal abbreviations for reserved words to reduce compilation time, that is, 
PIC instead of PICTURE, 

@ Use relational operators instead of relational clauses, 

3. Avoid needless qualification and/or subscripting. 

4. With ADD, SUBTRACT, IF, and MOVE: 
a use same size sending and receiving fields; 
. align decimal positions of sending and receiving fields. 


5. Use indexing instead of subscripting whenever possible. 


FIGURATIVE CONSTANTS: 


zero} © | = 0 or O's DISPLAY mode = code FO (EBCDIC) or 
30 (ASCII) COMPUTATIONAL 
mode = binary 0 
QUOTEIS] code 7D (EBCDIC) or 27 (ASCII); 
apostrophe is the generated character 
}é.... code FF (EBCDIC) or 7F (ASCII) 
-WALUE[S} code 00 (lowest value in collating sequence} 


ALL literal = a sequence of any nonnumeric literal or figurative constant 


SPACE [S] = blank character(s) code 40 {(EBCDIC) or 20 {ASCII} 





IDENTIFICATION DIVISION 
IDENTIFICATION DIVISION. 
PROGRAW-ID. program-name. 
(AUTHOR. [comment-entry.] .. .} 
(INSTALLATION. [comment-enty.] ...] 
[DATE-WRITTEN. [comment-entry.} . . .] 


[DATE-COMPILED. [comment-entry.] ...] 





[SECURITY. [comment-entry.] . . .] 
(REMARKS. [comment-entry.] ...] 
ENVIRONMENT DIVISION 


ENVIRONMENT DIVISION. 
CONFIGURATION SECTION. 








UNIVAC-9030. 
SOURCE-COMPUTER. < UNIVAC-9025. 


UNIVAC-9040, 
UNIVAC-9030 
OBJECT-COMPUTER. unWacan | 
{gawacans 
CHARACTERS 
, MEMORY SIZE integer | ooutes 
WORDS | 


SPECIAL-NAMES. 


[CURRENCY SIGN IS literal] 

{) DECIMAL-POINT IS COMMA] 
[; SYSCOM IS mnemonic-name-1} 
[; SYSDATE IS mnemonic-name-2} 
(1; SYSTIME IS mnemonic-name-3] 
U 
C 
G 


SYSCONSOLE IS mnemonic-name-4} 
SYSCHAN—t 1S mnemonic-name-5}. . . 
SYSLST IS mnemonic-name-4] 

7 SYSERR(i-m 


OFF STATUS 1S condition-name-4 [, ON STATUS t$ condition-name-3] 


{ ON STATUS I$ condition-name-3.[, OFF STATUS J§ condition-name-4} \ bs 


; SYSSWCH [-n 


1S mnemonic-name-7 { ON STATUS IS condition-name-6 
l, OFF STATUS IS condition-name-6] ] 


1S mnemonic-name-7 [ OFF STATUS IS condition-name-6 
[, ON STATUS !S condition-name-5] } 


ON STATUS IS condition-name-5 

L, OFF STATUS JS condition-name-6) 
QEF STATUS JS condition-name-6 

(, ON STATUS IS condition-name-5] 


[; SYSIN $$ mnemonic-name-8] 

{; SYSIN-96 t§ mnemonic-name-9) 

[; SYSIN-128 1S mnemonic-name-10) 
[; SYSLOG !S mnemonic-name-11] 


INPUT-OUTPUT SECTION. 
FILE-CONTROL- {SELECT [OPTIONAL] file-name 


ASSIGN TO [external-name] [integer-1] implementor-name:t 


{OR implementor-name-2] [ro MULTIPLE {set @ 


UNIT 


NO AREAS 


. SFILE-LIMIT IS f data-name-1), data-name-2 
ia = THRU 
FILE-LIMITS ARE} |Iiteral-1 J literal-2 


[: nesenve |" ?bacreanate| ATER ]| 





{ data-name-3 4. § data-name-4t 
[ ‘Vliteral-3 § ale Vliteral-4 ppt 








ENVIRONMENT DIVISION (cont) 


EXTENDED 
; ACCESS MODE !S ¢ RANDOM |: PROCESSING MODE 1S SEQUENTIAL] 
SEQUENTIAL 


INDEXED 
; ORGANIZATION IS ¢ RELATIVE 
SEQUENTIAL 





{agree KEY IS data-name-5 
tecive KEY, 1S data-name-6 
; SYMBOLIC KEY IS data-name-7] 
(: ‘RECORD K KEY IS ‘data-name-8] . NG 
(-O-CONTROL. 


[ RERUN ON external-name EVERY integer-1 RECORDS OF file-name-1 


[, file-name-2] ... | Sits 


{; SAME [RECORD] AREA FOR file-name-3 { , file-name-4}...]... 


[, MULTIPLE FILE TAPE CONTAINS file-name-5] 
[POSITION integer-2] [file-name-6[POSITION ‘integer-31 J. . 


(; APPLY VERIFY ON file-name-8 (, fite-name-n}) .. 2d... 


: { file-name-9 [file-name-10}.. . | 
[ : APPLY BLOCK-COUNT ON 4 TApee | 6a 


+(; APPLY MASTER-INDEX ON file-name-11 [, file-name-12] ...] ... 





1 
(: APPLY CYLINDER-INDEX AREA OF integer-5 INDICES ON file-name-13} 


( filename-14]...]... 


[; APPLY CYLINDER-OVERFLOW AREA OF integer-6 
& PERCENT ON file-name-t5 {, file-name-16]...]... 
+( APPLY EXTENDED-INSERTION AREA ON fite-name-17 


(, file-name-18} ...] ... 





(; APPLY FILE-PREPARATION ON file-name-19 [, file-name-20)...]... 


[ ; APPLY ASCH s [ wer BUFFER-OF FSET 


{ FOR BLOCK-LENGTH-CHECK 


OF integer CHARACTERS | ON file-name-21 [, file-name-22}. . i 


DATA DIVISION 
DATA DIVISION. 
FILE SECTION. 


EO file-name 


; BLOCK CONTAINS [integer-1 TO} integer-2 roan : 
—— <= RECORDS / 


[| RECORD CONTAINS [integer-3 TO] integer-4 CHARACTERS] 








OMITTED 
ROI porch lambs 
; LABEL ORD > \ STANDARD 
RECORDS ARE data-name-1 [, data-name-2)}.. 


( 


; RECORDING MODE" IS. 


| 
J 


Oo 
E 
ly 


{Accepted for OS/4 and OS/7 compatibility only. 
*Extension to American National Standard COBOL (1968). 3 








DATA DIVISION (cont) 


: VALUE OF unqualified-data-name IS osiraer : | 
—_—_—_= literal-1 





[ “DATA \aecoro 1S 


RECORDS ancy ouenames [, data-name-5] . . ‘| 


DATA DESCRIPTION 


Format 1: 


leve-number | FILLER \ [; REDEFINES unqualified-data-name, 
unqualified-data-name-1 Sa 


OCCURS integer-2 TIMES 


[ INDEXED BY index-name-1 [, index-name-2] . | 


COMP-3* 
COMPUTATIONAL-3* 
DISPLAY 

INDEX 


[USAGE IS] 





{oe IS ch 
ae RE character-string 


(; MAP* IS integer-3 CHARACTERS] 


SYNC eet | |! faust 
E { See vnomzeot [ ml [ Vaetirict \ avon | 


[; VALUE IS literal} [; BLANK WHEN ZERO} 





LEADING 
: {ISIGN® is} { LEADING. 





\ SEPARATE CHARACTER | 


lision* 1S} TRAILING \ 


Format 2: @& 


88 condition-name; VALUE IS literal-1 





WORKING-STORAGE SECTION. 





77 tevel-description entry 
record-description-entry 


LINKAGE SECTION.” 


[vevel-number data-name [descriptive clauses] }. oe 


PROCEDURE DIVISION 
PROCEDURE DIVISION. {usinc * unqualified-data-name-1 
{unqualified-data-name-2} . . J. 
[DECLARATIVES. 
|section-name SECTION. declarative-sentence. 
} paragraph-name. }sentencet er {. F | 


END DECLARATIVES.] 





| [section-name SECTION. [priority-number} .] 
| paragraph-name. } sentence f. t. 7 a 


VERBS AND STATEMENTS (listed alphabetically) 
P cgi mnemonic-name 

ACCEPT identifier [FROM GATE 

DAY* 

TIME* 





*Extension to American National Standard COBOL (1968). 





Te 5: 
{ ree By { identifier-2 





PROCEDURE DIVISION (cont) 


Format 1: 


{ ean [ , identifier-2 


200 literal-1 « literal-2 


. -. TO identifier-m [ROUNDED] 


[, identifier-n [ROUNDED] ] ... 


(: ON SIZE ERROR imperative-statement} 


Format 2: 


0 identifier-1 identifier-2 « identifier-3 
titeral-1 titeral-2 » literal-3 


GIVING identifier-n [ROUNDED] (; ON SIZE ERROR imperative-statement] 


ALTER procedure-name-1 TO [PROCEED TO) procedure-name-2 
[, procedure-name-3 TO [PROCEED TO) procedure-name-4} 


file-name 
CALL “entry-name | USING ¢ identifier 
Procedure-name 


: REEL LOCK 
CLOSE file-name-1 [ a | WITH en aes 
REEL LOCK 
, tile-name-2 len, | WITH { NO aewing | 


COPY lJibrary-name. 


identifier-11| , identifier-2 
oiseLay} literal-1 [ | literal-2 ] [UPON mnemonic-name] 


Format 1: 


VIDE aoe INTO identifier-2 [ROUNDED} 


{; ON SIZE ERROR imperative-statement] 


Format 2: 


identifier-1 } INTO { aki 


DIVIDE GIVING identifier-3 [ROUNDED] 
———~ | literal-1 titeral-2 _—_— ——— 


[; ON SIZE ERROR imperative-statement ] 





Format 3: 


DIVIDE identifier-1 
——— literal-1 


{[; ON SIZE ERROR imperative-statement) 


BY { eae GIVING identifier-3 [ROUNDED] 


Format 4: 
Diving { Sentient} nro {entifier-2 lc ving identifier 3 [ROUNDED] 
—— literal-1 —— {[literal-2 —— —— 


REMAINDER identifier-4 [; ON SIZE ERROR imperative-statement} 


DIVIDE } GIVING identifier-3 [ROUNDED} 


literal-1 literal-2 


REMAINDER identifier-4 [; ON SIZE ERROR imperative-statement]) 


——— 
“Extension te Americen National Standard COBOL (1968). 


PROCEDURE DIVISION (cont) 
Format 1: 


ENTER LINKAGE. 
file-name 
CALL"entry-name} USING ¢ identifier seeds 
Pprocedure-name 


ENTER COBOL. 


Format 2: 





ENTER LINKAGE. 

ENTRY* entry-name {USING } unqualified-data-name t ia Vhs 
ENTER COBOL. 

Format 3: 

ENTER LINKAGE. 

{ EXIT PROGRAM | 


RETURN. 
ENTER COBOL. 
ENE ewe 


: EXAMINE identifier 


ALL 
TALLYING ¢ LEADING \ titeral-1 [REPLACING BY literal-2] 
UNTIL FIRST 


ALL 
REPLACING ¢ LEADING literal-3 BY literal-4 
(UNTIL) FIRST 





EXIT [PROGRAN] * 
Format 1: 
GO TO [procedure-name] 


Format 2: 


GO TO procedure-name-1 (, procedure-name-2] .. ., procedure-name-n 


DEPENDING ON identifier 
Format 3: 
GO TO MORE-LABELS* 


IF condition; {THEN] * { NEXT SENTENC \ 
= =o. statement-1 


{ELSE \ { next senrence } 
é OTHERWISE” statement-2 


condition may be any of the following: 





—_—— ee 


*Extension ta American National Standard COBOL (1968). 





a len A ea a 


PROCEDURE DIVISION (cont) 


. Relation condition 





js { (NOT) GREATER THAN \ 
(NOT) 2 


ye fidentifier-1 'S 4 (NOT! < eat \ 
e Uiteral-1 - (en EQUALT \ titeral-2 
. ({NOT] = 





= = Class condition 





ALPHABETIC \ 
NUMERIC 


JE identifier IS (NOT] { 
e Condition-name condition as defined by an 88-level entry in the Data Division 
iF {NOT] condition-name 
s Switch-status condition 
IE [NOT] condition-name 


. Sign condition 


NEGATIVE 
IF identifier is [NOT] ¢ POSITIVE 
ZERO 


INSERT* record-name {FROM identifier-1] [; INVALID KEY imperative-statement] 


MOVE jeeverl TO identifier-2 [, identitier-3) . .. 
— literal-4 ~~ 


e Format 1: 


MULTIPLY { identifier-1 


literal-1 \ BY identifier-2 (ROUNOED] 


{; ON SIZE ERROR imperative-statement]} 


Format 2: 


identifier-1 \ { iain 


wuctieny {ern ae 


GIVING identifier-3 (ROUNDED) 


{; ON SIZE ERROR imperative-statement] 


NOTE character-string. 


LQ \ filename} *** | 


’ REVERSED ey 
OPEN {NPUT { fiename [Reverse REWIND } \ 


OUTPUT { fiename [WITH NO REWIND] \ ea \ 


Format 1: 
@ PERFORM procedure-name-1 {THRU procedure-name-2) 


Format 2: 


car TIMES 


PERFORM procedure-name-1 [THRU procedure-name-2] ‘ 
———S — integer-1 





—— 
“Extension to American National Standard COBOL (1968). 





PROCEDURE DIVISION (cont) 
READ file-name RECORD (INTO identifier] 


. f ATEND - . 
; INVALID KEY imperative-statement 


Format 1: 
REWRITE* record-name [FROM identifier] 


Format 2: 





REWRITE record-name [FROM identifier] {; INVALIO KEY imperative-statement) @ 


SEEK file-name RECORD 


Format 1: 
identifier-3 
identifier-1 identifier-2 ( , ;, 
‘ ta-item-3 
SET nee , index-data-item-2 | .. -TO aes . 
index-name-1 , index-name-2 literal 
Format 2: 
SET index-name-1 f . index-name-2 | bite { rag BY } } ssi 


stop { pate 


——— ) RUN 
Format 1: 


SUBTRACT eee [ ‘ foo | 


literal-t , literal-2 


FROM identifier-m [ROUNDED] [, identifier-n [ROUNDED} J ay 
(; ON SIZE ERROR imperative-statement] 


Format 2: @ | 


identifier-1 , identifier-2 
TRAC Wea SL ieee | 
FROM ei nt \ GIVING identifier-n [ROUNDED] 


[; ON SIZE ERROR imperative-statement} 
Format 1: 


TRANSFORM” identifier-3 [, identifier-4] .. . CHARACTERS 


identifier-1 identifier-2 
nonnumeric-literal-1 nonnumeric-literal-2 


figurative-constant-1 figurative-constant-2 
FROM nie} 





Format 2: 
TRANSFORM identifier-3 [, identifier-4] ... CHARACTERS 


{ ASCII TO EBCDIC \ 


FROM ) escpic TO ASCtHI 


Format 3: 


TRANSFORM identifier-3 [, identifier-4] .., CHARACTERS 





BY|. en 
{5x identifier-5 


—— 
“Extension to American National Standard COBOL (1968). 








PROCEDURE DIVISION (cont) 


Format 1: 
FILE 
AFTER BEGINNING BEEl 
use { eae STANDARD [ ENDING | REEL 
—— UNIT 
’ file-name-1 [, file-name-2]. . . 
1-0 
LABEL PROCEDURE ON NPUT 
QUTPUT 
Format 2: 


USE AETER STANDARD ERROR PROCEOURE ON 


’ file-name-1 (, file-name-2}... 
10 
INPUT 

| OUTPUT 


Format 3:* 
USE FOR FORM-OVERFLOW ON file-name-1 


Format 1: 


WRITE record-name [FROM identifier-1] 


AFTER identifier-2 LINES 
{ BEFORE \ ADVANCING ¢ integer LINES 
oe" mnemonic-name 


& Format 2: 


WRITE record-name [FROM identifier-1] [; INVALID KEY imperative-statement] 





DEBUGGING AIDS 


DEBUGGING AIDS 
(An extension to 1968 American National Standard COBOL): 


SYSLST must be specified on an LFD control card. 


READY TRACE.“ 
RESET TRACE.” 


CHANGED meee 
EXHIBIT? CHANGED wanes settle i al 
= NAMED ) nonnumeric-literal- 


identifier-2 
nonnumeric-literal-2 ee 


where: 
CHANGED 


Provides a columnar display of nonnumeric literals and identifier values 
that have changed. 


a 
*Extension ta American National Standard COBOL (1968). 


DEBUGGING AIDS (cont) 


CHANGED NAMED 


Provides a noncotumnar display of nonnumeric literals and identifier 


values that have changed. 


NAMED 


Provides a noncolumnar display of specified identifier values and 


nonnumeric literals. 
Debug” Packet Control Card 


1 8 
“DEBUG location 


where: 


location 





Is a section name or a Paragraph name. 


RESERVED WORDS 


ACCEPT 

ACCESS 

ACTUAL 

AOD 

ADVANCING 
AFTER 

ALL 

ALPHABETIC 
ALTER 
ALTERNATE 

AND 

APPLY * 

ARE 

AREA 

AREAS 
ASCENDING 
ASCII* 

ASSIGN 

AT 

AUTHOR 

BEFORE 
BEGINNING 
BLANK 

BLOCK 
BLOCK-COUNT * 
BLOCK-LENGTH-CHECK* 
BUFFER-OFFSET* 
BY 

CALL" 
CARD-PUNCH* 
CARD-READER* 
CARD-READER-51* 
CARD-READER-66* 
CHARACTER* 
CHARACTERS 
CHANGED* 

CLOSE 

COBOL 

COMMA 

COMP 

COMP-1" 

COMP.2* 

COMP.3* 

COMP.4* 
COMPUTATIONAL 
COMPUTATIONAL-1* 
COMPUTATIONAL-2* 
COMPUTATIONAL-3* 
COMPUTATIONAL-4* 
COMPUTE 
CONFIGURATION 
CONTAINS 

COPY 

CORR 


CORRESPONDING 
CURRENCY 

CYLINDER-INDEX* 
CYLINDER-OVERFLOW* 
DATA 

DATE-COMPILED 

DATE-WRITTEN 

DECIMAL-POINT 

DECLARATIVES 

DEPENDING 

DESCENDING 

DIRECT* 

disc* 

DISC-8411* 

DISC-8414* 

DISC-8415* 

DISC-8416* 
DISC-8418* 
DISC-8430* 
DISC-8433" 
DISPLAY 
DIVIDE 
DIVISION 
DOWN 

EBCDIC* 

ELSE 

END 

ENDING 

ENTER 

ENTRY * 
ENVIRONMENT 
EQUAL 
EQUALS" 
ERROR 
EVERY 
EXAMINE 
EXCEEDS" 
EXHIBIT* 

EXIT 
EXTENDED 
EXTENDED-INSERTION* 
FD 

FILE 
FILE-CONTROL 
FILE-LIMIT 
FILE-LIMITS 
FILE-PREPARATION* 
FILLER 

FIRST 

FOR 
FORM-OVERFLOW* 
FROM 
GENERATE 
GIVING 








— 
*Extansion to American National Standard COBOL (1968). 
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RESERVED WORDS (cont) 


Go 
GREATER 
HIGH-VALUE 
HIGH-VALUES 
1-0 
1-O-CONTROL 
1D 
IDENTIFICATION 
IF 

IN 

INDEX 
INDEXED 
INDICES* 
INITIATE 
INPUT 
INPUT-OUTPUT 
INSERT* 
INSTALLATION 
INTO 
INVALID 

Is 

JUST 
JUSTIFIED 
KEY 

LABEL 
LEADING 
LEFT 

LESS 

LINE 

LINES 
LINKAGE* 
LOCK 
LOW-VALUE 
LOW-VALUES 
MAP* 
MASTER-INDEX* 
MEMORY 
MODE 
MORE-LABELS* 
MOVE 
MULTIPLE 
MULTIPLY 
NAMED* 
NEGATIVE 
NEXT 

NO 

NOT 

NOTE 
NUMERIC 
OBJECT-COMPUTER 
OCCURS 

OF 

OFF 
OMITTED 

ON 

OPEN 
OPTIONAL 
OR 
ORGANIZATION* 
OTHE RWISE* 
OUK-90-250" 
OUK-90-300* 
OUK-90-400* 
OUK-90-600" 
OUK-90-700* 
OUTPUT 
PERCENT* 
PERFORM 
PIC 

PICTURE 
POSITION 
POSITIVE 
PRINTER * 


PROCEDURE 
PROCEED 
PROCESSING 
PROGRAM* 
PROGRAM-ID 
QUOTE 
QUOTES 
RANDOM 
READ 
READY * 
RECORD 
RECORDING * 
RECORDS 
REDEFINES 
REEL 
RELATIVE* 
RELEASE 
REMAINDER 
REMARKS 
RENAMES 
REPLACING 
RERUN 
RESERVE 
RESET* 
RESTRICTED* 
RESTRICTED 
RETURN 
REVERSED 
REWIND 
REWRITE” 
RIGHT 
ROUNDED 
RUN 

SAME 

sD 

SEARCH 
SECTION 
SECURITY 
SEEK 
SEGMENT-LIMIT 
SELECT 
SENTENCE 
SEPARATE 
SEQUENTIAL *® 
SET 

SIGN 

SIZE 

SORT 
SOURCE-COMPUTER 
SPACE 
SPACES 
SPECIAL-NAMES 
STANDARD 
STATUS 
STOP 
SUBTRACT 
SYMBOLIC * 
SYNC 
SYNCHRONIZED 
SYSCHAN-1* 
SYSCHAN-2* 
SYSCHAN-3* 
SYSCHAN-4* 
SYSCHAN-5 * 
SYSCHAN-6 * 
SYSCHAN-7 * 
SYSCHAN-8 * 
SYSCHAN-9 * 
SYSCHAN-10* 
SYSCHAN-11* 
SYSCHAN-12* 
SYSCHAN-13* 
SYSCHAN-14* 


“Extention to American National Stenderd COBOL (1968). 
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RESERVED WORDS (cont) 











SYSERR* TALLY 

SYSERR-0* TALLYING 

SYSERR-1* TAPE 

SYSERR-2* TAPE-6* 

SYSERR-3* TAPES * 

SYSERR-4* THAN 

SYSERR-5* THEN’ 

SYSERR-6* THROUGH 

SYSERR-7°* THRU 

SYSERR-8* TIME * 

SYSERR-9* TIMES 

SYSERR-10* TO 

SYSERR-11° TRACE * 

SYSERR-12° : TRACKS * 

SYSERR-13* TRAILING* 

SYSEAR-147 TRANSFORM" 

SYSERR- UNEQUAL* 

SYSERR-16* UNIT 

SYSERR-17* UNIVAC-9000* ( 
SYSERR-18* UNIVAC-9025* 

SYSERR-19" UNIVAC-9030* : 
SYSERR-20* UNIVAC-9040* | 
SYSERR22" Davee? 

: UNIVAC-9070 ‘ 
SYSERR-23* UNIVAC-92001)* 
SYSERR-24° UNIVAC-9300* 
SYSERR-25* UNIVAC-930011*" 
SYSERR-26* UNIVAC-9400 * 
SYSERR-27" UNIVAC-9480* 
SYSERR-28* UNIVAC-9700 * 
SYSERR-29" UNTIL 
SYSERR-30" up 
SYSERR-31° UPON 
SYSIN* USAGE 
SYSIN-96* USE 
SYSIN-128* USING 
SYSLOG VALUE 
SYSLST * VALUES 
SYSSWCH* VARYING 
SYSSWCH-0* VERIFY * 
SYSSWCH-1" WHEN 
SYSSWCH-2* WITH 
SYSSWCH-3° WORDS 
SYSSWCH-4* WORKING-STORAGE 
SYSSWCH-5* WRITE 
SYSSWCH-6* ZERO 
SYSSWCH-7 * ZEROES 
SYSTIME * ZEROS 

ee eee ae 


“Extension to American Netional Standard COBOL (1968). 
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PARAM CARD OPTIONS 


f PARAM CARD RESULT 
f 


H /1 PARAM LST=A Activates ambiguity mode of reference resolution. The definition 
i search process is not terminated when the reference has been 
i resolved, but is continued in an attempt to find and report 
duplicate definitions. 
11 PARAM LST=C Produces cross-reference information for the Data Division and/or 
Procedure Division maps as specified. If the C option is used 
without the M and P options, both a Data Division and Procedure 
Division map listing will be produced with cross-reference 
information. 
// PARAM LST=D. Produces Data Division alphabetized cross-reference listing. 
1] PARAM LST=E Printer mismatch errors during compilation are ignored. 
/{ PARAMILST=I Suppress listing of lines from COPY library. 
4 1/1 PARAM LST=K Suppresses source sequence number checking. 


f // PARAM LST=L Single-spaces all requested listings. If no tistings were requested, 
a single-spaced diagnostic listing is produced. 


i 11 PARAM LST=M Produces Data Division storage map listing. 
11 PARAM LST=N Suppresses all output listings except the PARAM card listing. 


// PARAM LST=O Produces object cade listing. 


// PARAM LST=P Produces Procedure Division storage map listing. 


// PARAM LST=R Allows quotation mark symbol! in nonnumeric literal bounded by 
apostrophes. 


// PARAM LST=S Produces source program listing. 


11 PARAM LST=T Allows apostrophe symbol in nonnumeric literal bounded by 
quotation marks. 


// PARAM LST=W Suppresses precautionary diagnostic listing. 
/{ PARAM LST=X Produces Procedure Division alphabetized cross-reference listing. 
// PARAM OUT=C Conversion mode. 


i/ PARAM OUT=K Allows COMP or COMPUTATIONAL to be used in USAGE clause 
but treats it as COMP-3 or COMPUTATIONAL-3. 


// PARAM OUT=L Suppresses generation of linker control information in the object 
module. 


// PARAM OUT=N Suppresses object program module generation. 
// PARAM OUT=P Disregards mismatched errors for all object program print files. 


/ PARAM OUT=R Quote as figurative constant is generated as quotation marks; by 
default, quote is apostrophe. 


/1 PARAM OUT=T Suppresses compiler generation of a transfer address for the object 
program. The program cannot be executed uniess it is called. 


/f PARAM OUT=V Suppresses automatic page overflow in the object program. 
| // PARAM IN= Identifies the file containing source program input. 
Program-name/ 


filename 


// PARAM LIN= Identifies the file containing the COPY library. 
filename 





// PARAM VER=wv/re Applies version and revision number to compiler output module. 





ff PARAM OBJ= identifies the file where the generated object mode is to be placed. 
filename 
‘NOTES: 
1. In the absence of PARAM cards, the compiler will produce a source program fisting, a 


diagnestic report and an object program. 


2. LST=R and LST=T are not allowed in the same program. Use of either option overrides 


the interchangeability of the apostrophe and the quotation marks, 13 









































